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*a sample of addition of constrained conditions 

Function SampleAddConstrainQ 
Dim aCircle As Object 
Dim aDirnRadius As Object 
Dora PntCnt(2) As Double 
Dim PntCrd(2) As Double 

PntCnt(O) = 4 
PntCnt(l) = 0 
PntCnt(2) = 0 

PntCrd(O) = PntCnt(0) + 0. 1 
PntCrd(l) = PntCnt(l) 
PntCrd(2) = PntCnt(2) 

Set aCircle = theModelSpaee.AddCircle(PntCnt, 0.1) 

Set aDirnRadius = theModelSpaceAddDimRadial(PntCnt PntCrd, 1) 

'constrain a size of a radius measure line into a 
variable A 

PenAddValCnsil aDimEadius. handle, 10, 1, 1, 0.1, n A\ 0 

'commonly constrain a center of a circle and a radius 
measure line 

PcnAddCnst2 aCircle. handle, aDirnRadius. handle, 20, 5, 5 

'constrain a size of a circle and a radius measure line in 
the same way 

PcnAddCnst2 aCircle. handle, aDimRadius. handle, 26, 1, 1 

'add a variable A 

PcnAddCnstVar *A\ *0.& n 



End Function 
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'an insert sample using DLL 



Private Function Insert(fileNarne As String, pararnStr As String) 

Dim insT3?pe As Long 

Dim optionSw As Long 

Dim insPntX As Double 
Dim insPntYAs Double 
Dim insPntZ As Double 
Dim insScale As Double 
Dim insAngle As Double 
Dim ret As Long 

insPntx^ mm 

insPntY=100# 
insPntZ~0# 

insType = INSTYPEJBXPLODE 
insScale = 1# 
insAngle — 30# 

optionSw = OP TION_CUKEENT„L AYER Or 

OPTI0N_REMOVE„DIMENS ION 

ret = PgfIn£ertFarts(fikName, insPntX, insPntY, insPntZ, insT^e, 
insScale, insAngle, optionSw, pararnStr) 
End Function 



Private Function InsertPart(paramStr As String) 

Insert M sample ¥DLLSInsert3s ample, char g", pararnStr 
End Function 



SubVALQ 

Inse rtP ar t " VAL:WID TH-50, HE IGHT=3Q, LENGTH™! 6 8 
End Sub 



SubEXCELQ 

InseriPart"EXCEL:samplelDLLJnsertSBooklxLs J sheetl J Sl 11 
End Sub 
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